unit Formulario_Padrao_Consulta;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, TFlatButtonUnit, JvExControls, JvEnterTab;

type
  TFrmConsulta = class(TForm)
    GB: TGroupBox;
    Panel1: TPanel;
    Panel2: TPanel;
    BtnFechar: TBitBtn;
    BtnFechar1: TFlatButton;
    procedure BtnFecharClick(Sender: TObject);
    procedure Panel2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmConsulta: TFrmConsulta;

implementation

uses dm;

{$R *.DFM}

procedure TFrmConsulta.BtnFecharClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmConsulta.Panel2Exit(Sender: TObject);
begin
  BtnFechar1.SetFocus;
end;

end.
